files <- filesof("./")

files.each(sub(i: str)
{
    siz <- i.regfind("(?<=-)\\d+(?=\\.png)")
    if siz != ""
    {
        image(i).resize(num(siz), num(siz)).save(i.tright(4) .. "d.png")
    }
})
